function testfunction(noWords,nRep)



%Fecha          4/12/08
%Syntax:        testfunction


% Este script itera a través de los archivos de ondas de entrenamiento para
% testear alguna de las funciones que los tienen como argumentos de entrada
% LENGTHS         = zeros(noWords,nRep);
% LENGTHStrimmed  = zeros(noWords,nRep);


for	i = 1:noWords
    for j = 1:nRep
    
        q               = ['/home/paula/espich/TrainingData/Speaker/spkr_' num2str(i) '_' num2str(j) '.wav'];   
       
        [speechIn,Fs]               = wavread(q);
        speechIn                    = noiseReduction(speechIn, Fs);
        [speech, ZCR,Egy]           = myVAD(speechIn);    %Recorte de la señal de voz 
%        LENGTHS(i,j)                = length(speechIn);
%        LENGTHStrimmed(i,j)         = length(speech);
%         ZCRrep(j,:) = ZCR;
%         EGYrep(j,:) = Egy;
%         dlmwrite('ZCR.txt',ZCRrep(j,:),'-append','delimiter','\t','roffset',2);
%         dlmwrite('EGY.txt',EGYrep(j,:),'-append','delimiter','\t','roffset',2);
        
     
%%%%%%%%%DISPLAY and SAVE%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%         h=figure;
%         subplot(4,1,1); plot(speechIn);
%         subplot(4,1,2); 
%                         plot(ZCR,'LineWidth',2);
%                         xlim([0 359]);
%                         ylabel('Cruces por Cero');
%                         xlabel('Numero de frames(segmentos)');
%                         title('ZCR');
%         subplot(4,1,3);
%                 plot(Egy,'LineWidth',2,'Color',[1,0,0]);
%                 xlim([0 359]);
%                 ylabel('Amplitud');
%                 xlabel('Numero de segmentos');
%                 title('Energia de cada segmento');
%                 
% 
%         subplot(4,1,4); plot(speech);
%         saveas(h,['myVADspkr_' num2str(i) '_' num2str(j) '.jpg']);

        f=figure;
        subplot(2,1,1); plot(speechIn);
        subplot(2,1,2); plot(speech);
        saveas(f,['myVAD_' num2str(i) '_' num2str(j) '.jpg']);

    end
    
%     avZCR(i,:) = mean(ZCRrep); %vector con el promedio de ZCR para cada segmento de la palabra i.
%     avEGY(i,:) = mean(EGYrep); % vector con el promedio de Energia para cada segmento de la palabra i.
%     dlmwrite('avZCR.txt',avZCR(i,:),'-append','delimiter','\t','roffset',2);
%     dlmwrite('avEGY.txt',avEGY(i,:),'-append','delimiter','\t','roffset',2);
    
end
%el codigo a continuacion calcula

%el codigo a continuacion guarda en un archivo text los resultados de
%myVAD. Son las longitudes de las señales

 %meanLENGTHS = mean(LENGTHStrimmed,2);
 %A = LENGTHS;
 %B = LENGTHStrimmed;
 %C = meanLENGTHS;
%dlmwrite('SpeakerDBData.txt',A,'-append','delimiter','\t');
%dlmwrite('SpeakerDBData.txt',B,'-append','delimiter','\t','roffset',3);
%dlmwrite('SpeakerDBData.txt',C,'-append','delimiter','\t','roffset',3);